home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / BARMENU.ZIP / MENUDEMO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-09-13  |  582 b   |  24 lines
  1. Program MenuDemo;
  2. Uses MenuUnit, Crt;
  3. Var
  4.   Choice: Integer;
  5.   M: BBMenu;
  6. BEGIN
  7.   CLRSCR;
  8.   M.Init( 25, 7, 18);
  9.   M.AddPrompt('Open a New File');
  10.   M.AddPrompt('Existing File');
  11.   M.AddPrompt('Close A File');
  12.   M.AddPrompt('Quit');
  13.   Choice:= M.GetChoice;
  14.   GotoXY(1, 24); ClrEol;
  15.   Case Choice OF
  16.     0: Writeln('No Choice Was Made');
  17.     1: Writeln('Procedure NewFile Should Be Called');
  18.     2: Writeln('Procedure ExistingFile Should Be Called');
  19.     3: Writeln('Procedure CloseFile Should Be Called');
  20.     4: Writeln('Quitting ...');
  21.   END;
  22.   M.Done;
  23. END.
  24.